home *** CD-ROM | disk | FTP | other *** search
/ Experimental BBS Explossion 3 / Experimental BBS Explossion III.iso / gus / vts139b.zip / VTGLOBAL.PAS < prev    next >
Pascal/Delphi Source File  |  1993-12-31  |  4KB  |  103 lines
  1. {****************************************************************************}
  2. {                                                                            }
  3. { MODULE:         VTGlobal                                                   }
  4. {                                                                            }
  5. { DESCRIPTION:    Provides definitions of constants and global variables     }
  6. {                 of the VangeliSTracker. To be used by all of the VT units. }
  7. {                                                                            }
  8. { AUTHOR:         Juan Carlos Arévalo                                        }
  9. {                                                                            }
  10. { MODIFICATIONS:  Nobody (yet ;-)                                            }
  11. {                                                                            }
  12. { HISTORY:        17-Oct-1992 Documentation.                                 }
  13. {                                                                            }
  14. { (C) 1992 VangeliSTeam                                                      }
  15. {____________________________________________________________________________}
  16.  
  17. UNIT VTGlobal;
  18.  
  19. INTERFACE
  20.  
  21. USES Dos,
  22.      SoundDevices, DevGUS;
  23.  
  24. CONST
  25.   NombreApp = 'VangeliSTracker';              { El nombre de la aplicación (para            }
  26.                                               { usarlo en unos cuantos sitios).             }
  27.   Version       = '1.39';                     { Número de versión, en formato X.Yz          }
  28.   NoBetaPadding ={'    v'}'v'             ;
  29.   BetaStr       ={''     }' (ß 18)'       ;
  30.   BetaPadStr    ={'    ' }'  ('#127' 18)' ;
  31.   Beta          ={FALSE  }TRUE            ;   { TRUE si es una versión beta.                }
  32.  
  33.   VTDir        : DirStr       = '';           { Directorio donde se encontraba el VT.EXE    }
  34.  
  35.  
  36.  
  37.   DevPtr       : PSoundDevice = NIL;          { Puntero al device que se usa.               }
  38.   DevID        : TDevID       = GUSDevID;     { Identificador del device que se usa.        }
  39.  
  40.   StartupScr   : STRING[32]   = '';           { Pantalla con la que comienza VT.            }
  41.  
  42.   PermitFade   : BOOLEAN      = TRUE;         { TRUE si se permite el fade-out.             }
  43.   VTVolume     : BYTE         = 127;          { Volumen general del programa.               }
  44.  
  45.   ShellLoopMod : BOOLEAN      = TRUE;         { TRUE si se quere que el módulo haga loops   }
  46.                                               { cuando estás en el shell, en vez de pararse.}
  47.  
  48.   DefShellHz = DefaultHz * 3 DIV 4;
  49.   ShellHz      : WORD         = DefShellHz;   { Sample freq when exiting to DOS shell.      }
  50.  
  51.   FadeIncr     : WORD         = 256;          { Velocidad del fade-out.                     }
  52.   VTLoopMod    : BOOLEAN      = FALSE;
  53.  
  54.   VT1stPattern : WORD = 0;
  55.   VTRepStart   : WORD = 0;
  56.   VTSongLen    : WORD = 0;
  57.  
  58.  
  59. VAR
  60.   StdErr       : TEXT;                        { Standard error. Salida no redireccionable.  }
  61.  
  62.   ShellPath    : PathStr;                     { Shell executable.                           }
  63. CONST
  64.   ShellParam   : STRING[127]  = '';           { Shell parameters.                           }
  65.   StringsFName : PathStr      = 'VT_Esp.Lng'; { Fichero de lenguaje.                        }
  66.   ModPath      : PathStr      = '';
  67.   FirstSong    : STRING[20]   = '';     { First song to be loaded }
  68.  
  69.  
  70.  
  71.  
  72. IMPLEMENTATION
  73.  
  74.  
  75.  
  76.  
  77. {----------------------------------------------------------------------------}
  78. { Module initialization and exit.                                            }
  79. {____________________________________________________________________________}
  80.  
  81. VAR
  82.   OldExitProc : POINTER;
  83.  
  84. PROCEDURE MyExitProc; FAR;
  85.   BEGIN
  86.     ExitProc := OldExitProc;
  87.  
  88.     Close(StdErr);            { Close the standard error. Not necesarily needed, but }
  89.                               { included for cleanliness.                            }
  90.   END;
  91.  
  92. BEGIN
  93.  
  94.   Assign(StdErr, 'CON');      { The standard error will always be the console. }
  95.   Rewrite(StdErr);            { Opened for writing. }
  96.  
  97.   OldExitProc := ExitProc;
  98.   ExitProc    := @MyExitProc; { Set the exit procedure. }
  99.  
  100.   ShellPath := FExpand(GetEnv('COMSPEC'));
  101.  
  102. END.
  103.